Hệ thống quản lý tiền thuê nhà tạm ứng trong c#

3.459 lượt xem;

frmregreport.vb
House Rent System /
project /

1 Imports System.Data.OleDb
2 Imports CrystalDecisions.CrystalReports.Engine
3 Imports CrystalDecisions.Shared
4 Imports System.Data
5 Public Class frmregreport
6     Public myfilter As String
7     Public strReport As String
8     Private mReport As ReportDocument
9
10     Private Sub frmregreport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
11         Dim pvCollection As New CrystalDecisions.Shared.ParameterValues
12         Dim pdvBusName As New CrystalDecisions.Shared.ParameterDiscreteValue
13         Dim pdvBusAddress As New CrystalDecisions.Shared.ParameterDiscreteValue
14         Dim pdvContactInfo As New CrystalDecisions.Shared.ParameterDiscreteValue
15
16         Dim BusName As String = "ABC Company"
17         Dim BusAddress As String = "Bacolod City"
18         Dim ContactInfo As String = "1234567"
19
20         mReport = New ReportDocument()
21
22         pdvBusName.Value = BusName
23         pdvBusAddress.Value = BusAddress
24         pdvContactInfo.Value = ContactInfo
25
26         Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
27         Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
28
29
30
31         mReport.Load(Application.StartupPath & "\crReportbyhouse.rpt")
32
33         mReport.RecordSelectionFormula = "{customers.houseno} = '" & myfilter & "'"
34
35         'pvCollection.Add(pdvBusName)
36         'mReport.DataDefinition.ParameterFields("prmBusName").ApplyCurrentValues(pvCollection)
37
38         'pvCollection.Add(pdvBusAddress)
39         'mReport.DataDefinition.ParameterFields("prmBusAddress").ApplyCurrentValues(pvCollection)
40
41         'pvCollection.Clear()
42         'pvCollection.Add(pdvContactInfo)
43
44         'mReport.DataDefinition.ParameterFields("prmContactInfo").ApplyCurrentValues(pvCollection)
45         For Each tbCurrent In mReport.Database.Tables
46             tliCurrent = tbCurrent.LogOnInfo
47             With tliCurrent.ConnectionInfo
48                 .ServerName = Application.StartupPath & "\hrs.mdb"
49                 .UserID = ""
50                 .Password = ""
51                 .DatabaseName = Application.StartupPath & "\hrs.mdb"
52             End With
53             tbCurrent.ApplyLogOnInfo(tliCurrent)
54         Next tbCurrent
55
56         CrystalReportViewer1.ReportSource = mReport
57     End Sub
58 End Class